home *** CD-ROM | disk | FTP | other *** search
/ Software USA: Back to School / Software USA: Back to School.iso / pc / homeoff / archive / install / _setup.1 / Arkiv.exe / 0 / RCDATA / TADRESSFORM / TADRESSFORM.txt
Encoding:
Text File  |  2000-01-24  |  32.4 KB  |  1,113 lines
  1. object AdressForm: TAdressForm
  2.   Left = 229
  3.   Top = 110
  4.   AutoScroll = False
  5.   BorderIcons = [biSystemMenu, biMinimize]
  6.   Caption = 'Addressbook'
  7.   ClientHeight = 465
  8.   ClientWidth = 647
  9.   Color = clBtnFace
  10.   Font.Charset = ANSI_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -13
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   KeyPreview = True
  16.   Menu = MainMenu1
  17.   OldCreateOrder = True
  18.   PopupMenu = FilmPopup
  19.   Position = poScreenCenter
  20.   OnActivate = FormActivate
  21.   OnClose = FormClose
  22.   OnKeyPress = FormKeyPress
  23.   OnShow = FormShow
  24.   PixelsPerInch = 96
  25.   TextHeight = 16
  26.   object Label1: TLabel
  27.     Left = 16
  28.     Top = 57
  29.     Width = 62
  30.     Height = 16
  31.     Caption = 'First name'
  32.     Font.Charset = ANSI_CHARSET
  33.     Font.Color = clWindowText
  34.     Font.Height = -13
  35.     Font.Name = 'Arial'
  36.     Font.Style = []
  37.     ParentFont = False
  38.   end
  39.   object Label6: TLabel
  40.     Left = 16
  41.     Top = 86
  42.     Width = 66
  43.     Height = 16
  44.     Caption = 'Last name*'
  45.     Font.Charset = ANSI_CHARSET
  46.     Font.Color = clWindowText
  47.     Font.Height = -13
  48.     Font.Name = 'Arial'
  49.     Font.Style = []
  50.     ParentFont = False
  51.   end
  52.   object Label3: TLabel
  53.     Left = 16
  54.     Top = 118
  55.     Width = 35
  56.     Height = 16
  57.     Caption = 'Street'
  58.     Font.Charset = ANSI_CHARSET
  59.     Font.Color = clWindowText
  60.     Font.Height = -13
  61.     Font.Name = 'Arial'
  62.     Font.Style = []
  63.     ParentFont = False
  64.   end
  65.   object Label4: TLabel
  66.     Left = 16
  67.     Top = 149
  68.     Width = 71
  69.     Height = 16
  70.     Caption = 'Postal && zip'
  71.     Font.Charset = ANSI_CHARSET
  72.     Font.Color = clWindowText
  73.     Font.Height = -13
  74.     Font.Name = 'Arial'
  75.     Font.Style = []
  76.     ParentFont = False
  77.   end
  78.   object Label5: TLabel
  79.     Left = 16
  80.     Top = 180
  81.     Width = 68
  82.     Height = 16
  83.     Caption = 'Phone work'
  84.     Font.Charset = ANSI_CHARSET
  85.     Font.Color = clWindowText
  86.     Font.Height = -13
  87.     Font.Name = 'Arial'
  88.     Font.Style = []
  89.     ParentFont = False
  90.   end
  91.   object Label2: TLabel
  92.     Left = 16
  93.     Top = 212
  94.     Width = 73
  95.     Height = 16
  96.     Caption = 'Phone home'
  97.     Font.Charset = ANSI_CHARSET
  98.     Font.Color = clWindowText
  99.     Font.Height = -13
  100.     Font.Name = 'Arial'
  101.     Font.Style = []
  102.     ParentFont = False
  103.   end
  104.   object Label7: TLabel
  105.     Left = 17
  106.     Top = 243
  107.     Width = 40
  108.     Height = 16
  109.     Caption = 'Celluar'
  110.     Font.Charset = ANSI_CHARSET
  111.     Font.Color = clWindowText
  112.     Font.Height = -13
  113.     Font.Name = 'Arial'
  114.     Font.Style = []
  115.     ParentFont = False
  116.   end
  117.   object Label9: TLabel
  118.     Left = 16
  119.     Top = 274
  120.     Width = 37
  121.     Height = 16
  122.     Caption = 'E-Mail'
  123.     Font.Charset = ANSI_CHARSET
  124.     Font.Color = clWindowText
  125.     Font.Height = -13
  126.     Font.Name = 'Arial'
  127.     Font.Style = []
  128.     ParentFont = False
  129.   end
  130.   object Label10: TLabel
  131.     Left = 16
  132.     Top = 306
  133.     Width = 55
  134.     Height = 16
  135.     Caption = 'Homesite'
  136.     Font.Charset = ANSI_CHARSET
  137.     Font.Color = clWindowText
  138.     Font.Height = -13
  139.     Font.Name = 'Arial'
  140.     Font.Style = []
  141.     ParentFont = False
  142.   end
  143.   object Label11: TLabel
  144.     Left = 464
  145.     Top = 245
  146.     Width = 63
  147.     Height = 16
  148.     Caption = 'Comments'
  149.     Font.Charset = ANSI_CHARSET
  150.     Font.Color = clBlack
  151.     Font.Height = -13
  152.     Font.Name = 'Arial'
  153.     Font.Style = []
  154.     ParentFont = False
  155.   end
  156.   object Label8: TLabel
  157.     Left = 96
  158.     Top = 36
  159.     Width = 110
  160.     Height = 16
  161.     Caption = 'Number of records:'
  162.     Color = clBtnFace
  163.     Font.Charset = ANSI_CHARSET
  164.     Font.Color = clBlack
  165.     Font.Height = -13
  166.     Font.Name = 'Arial'
  167.     Font.Style = []
  168.     ParentColor = False
  169.     ParentFont = False
  170.   end
  171.   object CountPostLbl: TLabel
  172.     Left = 210
  173.     Top = 36
  174.     Width = 7
  175.     Height = 16
  176.     Caption = '0'
  177.     Color = clBtnFace
  178.     Font.Charset = ANSI_CHARSET
  179.     Font.Color = clBlack
  180.     Font.Height = -13
  181.     Font.Name = 'Arial'
  182.     Font.Style = []
  183.     ParentColor = False
  184.     ParentFont = False
  185.   end
  186.   object ToolBar1: TToolBar
  187.     Left = 0
  188.     Top = 0
  189.     Width = 647
  190.     Height = 33
  191.     ButtonHeight = 25
  192.     Caption = 'ToolBar1'
  193.     EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
  194.     TabOrder = 16
  195.     object CloseKnp: TSpeedButton
  196.       Left = 0
  197.       Top = 2
  198.       Width = 35
  199.       Height = 25
  200.       Hint = 'Back to mainmenu'
  201.       Flat = True
  202.       Glyph.Data = {
  203.         76010000424D7601000000000000760000002800000020000000100000000100
  204.         04000000000000010000120B0000120B00001000000000000000000000000000
  205.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  206.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  207.         03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
  208.         0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
  209.         0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
  210.         0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
  211.         0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
  212.         0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
  213.         0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
  214.         0333337F777FFFFF7F3333000000000003333377777777777333}
  215.       NumGlyphs = 2
  216.       ParentShowHint = False
  217.       ShowHint = True
  218.       OnClick = CloseKnpClick
  219.     end
  220.     object LookKnp: TSpeedButton
  221.       Left = 35
  222.       Top = 2
  223.       Width = 35
  224.       Height = 25
  225.       Hint = 'Print preview'
  226.       Flat = True
  227.       Glyph.Data = {
  228.         F6000000424DF600000000000000760000002800000010000000100000000100
  229.         04000000000080000000120B0000120B00001000000010000000000000000000
  230.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  231.         FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
  232.         DADA000000000DADADAD0FFFFFFF0ADADA000F88888F0DADA0000F88888F0ADA
  233.         000A0F88870007A000AD0F8800FFF0000ADA0F807FFFF070ADAD0F70E000F080
  234.         7ADA0F0EFEFEF0880DAD0F0F0000F0880ADA000EFEFFF0880DADDA7000000080
  235.         7ADAADA008888870ADADDADA0088800ADADAADADA70007ADADAD}
  236.       ParentShowHint = False
  237.       ShowHint = True
  238.       OnClick = LookKnpClick
  239.     end
  240.     object PrintKnp: TSpeedButton
  241.       Left = 70
  242.       Top = 2
  243.       Width = 35
  244.       Height = 25
  245.       Hint = 'Print'
  246.       Flat = True
  247.       Glyph.Data = {
  248.         F6000000424DF600000000000000760000002800000010000000100000000100
  249.         04000000000080000000120B0000120B00001000000010000000000000000000
  250.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  251.         FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
  252.         DADAAD00000000000DADD0888888888080DA000000000000080D0888888BBB88
  253.         000A088888877788080D00000000000008800888888888808080D00000000008
  254.         0800AD0FFFFFFFF08080DAD0F00000F0000AADA0FFFFFFFF0DADDADA0F00000F
  255.         0ADAADAD0FFFFFFFF0ADDADAD000000000DAADADADADADADADAD}
  256.       ParentShowHint = False
  257.       ShowHint = True
  258.       OnClick = PrintKnpClick
  259.     end
  260.     object ToolButton1: TToolButton
  261.       Left = 105
  262.       Top = 2
  263.       Width = 56
  264.       Caption = 'ToolButton1'
  265.       ImageIndex = 2
  266.       Style = tbsSeparator
  267.     end
  268.     object AddRecordKnp: TSpeedButton
  269.       Left = 161
  270.       Top = 2
  271.       Width = 35
  272.       Height = 25
  273.       Hint = 'Add record'
  274.       Flat = True
  275.       Glyph.Data = {
  276.         F6000000424DF600000000000000760000002800000010000000100000000100
  277.         04000000000080000000120B0000120B00001000000010000000000000000000
  278.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  279.         FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
  280.         DADAADADADADADADADADDADADADADADADADAADADADADADADADADDADADA000ADA
  281.         DADAADADAD030DADADADDADADA030ADADADAADA000030000ADADDAD033333330
  282.         DADAADA000030000ADADDADADA030ADADADAADADAD030DADADADDADADA000ADA
  283.         DADAADADADADADADADADDADADADADADADADAADADADADADADADAD}
  284.       ParentShowHint = False
  285.       ShowHint = True
  286.       OnClick = AddRecordKnpClick
  287.     end
  288.     object EditKnp: TSpeedButton
  289.       Left = 196
  290.       Top = 2
  291.       Width = 35
  292.       Height = 25
  293.       Hint = 'Edit record'
  294.       Flat = True
  295.       Glyph.Data = {
  296.         76010000424D7601000000000000760000002800000020000000100000000100
  297.         04000000000000010000120B0000120B00001000000000000000000000000000
  298.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  299.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
  300.         000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
  301.         00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
  302.         F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
  303.         0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
  304.         FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
  305.         FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
  306.         0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
  307.         00333377737FFFFF773333303300000003333337337777777333}
  308.       NumGlyphs = 2
  309.       ParentShowHint = False
  310.       ShowHint = True
  311.       OnClick = EditKnpClick
  312.     end
  313.     object DelRecordKnp: TSpeedButton
  314.       Left = 231
  315.       Top = 2
  316.       Width = 35
  317.       Height = 25
  318.       Hint = 'Delete record'
  319.       Flat = True
  320.       Glyph.Data = {
  321.         36040000424D3604000000000000360000002800000010000000100000000100
  322.         2000000000000004000000000000000000000000000000000000C0C0C0C0C0C0
  323.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  324.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  325.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  326.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  327.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  328.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  329.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  330.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  331.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  332.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  333.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  334.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  335.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  336.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  337.         C000C0C0C0000000000000000000000000000000000000000000000000000000
  338.         00000000000000000000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  339.         C000C0C0C0000000000000808000008080000080800000808000008080000080
  340.         80000080800000000000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  341.         C000C0C0C0000000000000000000000000000000000000000000000000000000
  342.         00000000000000000000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  343.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  344.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  345.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  346.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  347.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  348.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  349.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  350.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  351.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  352.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  353.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  354.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000}
  355.       ParentShowHint = False
  356.       ShowHint = True
  357.       OnClick = DelRecordKnpClick
  358.     end
  359.   end
  360.   object ForNamnEd: TDBEdit
  361.     Left = 96
  362.     Top = 58
  363.     Width = 265
  364.     Height = 24
  365.     DataField = 'Fornamn'
  366.     DataSource = DM.AdressSource
  367.     Font.Charset = ANSI_CHARSET
  368.     Font.Color = clMaroon
  369.     Font.Height = -13
  370.     Font.Name = 'Arial'
  371.     Font.Style = []
  372.     ParentFont = False
  373.     ReadOnly = True
  374.     TabOrder = 0
  375.   end
  376.   object EfterNamnEd: TDBEdit
  377.     Left = 96
  378.     Top = 90
  379.     Width = 265
  380.     Height = 24
  381.     DataField = 'Efternamn'
  382.     DataSource = DM.AdressSource
  383.     Font.Charset = ANSI_CHARSET
  384.     Font.Color = clMaroon
  385.     Font.Height = -13
  386.     Font.Name = 'Arial'
  387.     Font.Style = []
  388.     ParentFont = False
  389.     ReadOnly = True
  390.     TabOrder = 1
  391.   end
  392.   object AdressEd: TDBEdit
  393.     Left = 96
  394.     Top = 121
  395.     Width = 265
  396.     Height = 24
  397.     DataField = 'Gatuadress'
  398.     DataSource = DM.AdressSource
  399.     Font.Charset = ANSI_CHARSET
  400.     Font.Color = clNavy
  401.     Font.Height = -13
  402.     Font.Name = 'Arial'
  403.     Font.Style = []
  404.     ParentFont = False
  405.     ReadOnly = True
  406.     TabOrder = 2
  407.   end
  408.   object PadressEd: TDBEdit
  409.     Left = 96
  410.     Top = 153
  411.     Width = 265
  412.     Height = 24
  413.     DataField = 'Postadress'
  414.     DataSource = DM.AdressSource
  415.     Font.Charset = ANSI_CHARSET
  416.     Font.Color = clNavy
  417.     Font.Height = -13
  418.     Font.Name = 'Arial'
  419.     Font.Style = []
  420.     ParentFont = False
  421.     ReadOnly = True
  422.     TabOrder = 3
  423.   end
  424.   object TelArbEd: TDBEdit
  425.     Left = 96
  426.     Top = 184
  427.     Width = 142
  428.     Height = 24
  429.     DataField = 'Telefon arbete'
  430.     DataSource = DM.AdressSource
  431.     Font.Charset = ANSI_CHARSET
  432.     Font.Color = clNavy
  433.     Font.Height = -13
  434.     Font.Name = 'Arial'
  435.     Font.Style = []
  436.     ParentFont = False
  437.     ReadOnly = True
  438.     TabOrder = 4
  439.     OnKeyPress = TelArbEdKeyPress
  440.   end
  441.   object telBostadEd: TDBEdit
  442.     Left = 96
  443.     Top = 216
  444.     Width = 143
  445.     Height = 24
  446.     DataField = 'Telefon'
  447.     DataSource = DM.AdressSource
  448.     Font.Charset = ANSI_CHARSET
  449.     Font.Color = clNavy
  450.     Font.Height = -13
  451.     Font.Name = 'Arial'
  452.     Font.Style = []
  453.     ParentFont = False
  454.     ReadOnly = True
  455.     TabOrder = 5
  456.     OnKeyPress = telBostadEdKeyPress
  457.   end
  458.   object MobilEd: TDBEdit
  459.     Left = 96
  460.     Top = 247
  461.     Width = 144
  462.     Height = 24
  463.     DataField = 'Mobil'
  464.     DataSource = DM.AdressSource
  465.     Font.Charset = ANSI_CHARSET
  466.     Font.Color = clNavy
  467.     Font.Height = -13
  468.     Font.Name = 'Arial'
  469.     Font.Style = []
  470.     ParentFont = False
  471.     ReadOnly = True
  472.     TabOrder = 6
  473.     OnKeyPress = MobilEdKeyPress
  474.   end
  475.   object EpostEd: TDBEdit
  476.     Left = 96
  477.     Top = 279
  478.     Width = 265
  479.     Height = 24
  480.     DataField = 'E-postadress'
  481.     DataSource = DM.AdressSource
  482.     Font.Charset = ANSI_CHARSET
  483.     Font.Color = clNavy
  484.     Font.Height = -13
  485.     Font.Name = 'Arial'
  486.     Font.Style = []
  487.     ParentFont = False
  488.     ReadOnly = True
  489.     TabOrder = 7
  490.   end
  491.   object HemSidaEd: TDBEdit
  492.     Left = 96
  493.     Top = 310
  494.     Width = 264
  495.     Height = 24
  496.     DataField = 'Hemsida'
  497.     DataSource = DM.AdressSource
  498.     Font.Charset = ANSI_CHARSET
  499.     Font.Color = clNavy
  500.     Font.Height = -13
  501.     Font.Name = 'Arial'
  502.     Font.Style = []
  503.     ParentFont = False
  504.     ReadOnly = True
  505.     TabOrder = 8
  506.   end
  507.   object AdressNav: TDBNavigator
  508.     Left = 95
  509.     Top = 342
  510.     Width = 244
  511.     Height = 25
  512.     DataSource = DM.AdressSource
  513.     VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  514.     Flat = True
  515.     TabOrder = 10
  516.   end
  517.   object ToolBar2: TToolBar
  518.     Left = 0
  519.     Top = 436
  520.     Width = 647
  521.     Height = 29
  522.     Align = alBottom
  523.     AutoSize = True
  524.     BorderWidth = 1
  525.     ButtonHeight = 21
  526.     ButtonWidth = 20
  527.     DockSite = True
  528.     EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
  529.     Flat = True
  530.     Font.Charset = DEFAULT_CHARSET
  531.     Font.Color = clWindowText
  532.     Font.Height = -11
  533.     Font.Name = 'MS Sans Serif'
  534.     Font.Style = [fsBold]
  535.     ParentFont = False
  536.     ShowCaptions = True
  537.     TabOrder = 14
  538.     object A: TToolButton
  539.       Left = 0
  540.       Top = 0
  541.       Caption = 'A'
  542.       ImageIndex = 0
  543.       OnClick = AClick
  544.     end
  545.     object B: TToolButton
  546.       Left = 20
  547.       Top = 0
  548.       Caption = 'B'
  549.       ImageIndex = 1
  550.       OnClick = BClick
  551.     end
  552.     object C: TToolButton
  553.       Left = 40
  554.       Top = 0
  555.       Caption = 'C'
  556.       ImageIndex = 29
  557.       OnClick = CClick
  558.     end
  559.     object D: TToolButton
  560.       Left = 60
  561.       Top = 0
  562.       Caption = 'D'
  563.       ImageIndex = 2
  564.       OnClick = DClick
  565.     end
  566.     object E: TToolButton
  567.       Left = 80
  568.       Top = 0
  569.       Caption = 'E'
  570.       ImageIndex = 3
  571.       OnClick = EClick
  572.     end
  573.     object F: TToolButton
  574.       Left = 100
  575.       Top = 0
  576.       Caption = 'F'
  577.       ImageIndex = 4
  578.       OnClick = FClick
  579.     end
  580.     object G: TToolButton
  581.       Left = 120
  582.       Top = 0
  583.       Caption = 'G'
  584.       ImageIndex = 6
  585.       OnClick = GClick
  586.     end
  587.     object H: TToolButton
  588.       Left = 140
  589.       Top = 0
  590.       Caption = 'H'
  591.       ImageIndex = 7
  592.       OnClick = HClick
  593.     end
  594.     object I: TToolButton
  595.       Left = 160
  596.       Top = 0
  597.       Caption = 'I'
  598.       ImageIndex = 9
  599.       OnClick = IClick
  600.     end
  601.     object ToolButton11: TToolButton
  602.       Left = 180
  603.       Top = 0
  604.       Caption = 'J'
  605.       ImageIndex = 10
  606.       OnClick = ToolButton11Click
  607.     end
  608.     object ToolButton13: TToolButton
  609.       Left = 200
  610.       Top = 0
  611.       Caption = 'K'
  612.       ImageIndex = 11
  613.       OnClick = ToolButton13Click
  614.     end
  615.     object ToolButton14: TToolButton
  616.       Left = 220
  617.       Top = 0
  618.       Caption = 'L'
  619.       ImageIndex = 12
  620.       OnClick = ToolButton14Click
  621.     end
  622.     object ToolButton15: TToolButton
  623.       Left = 240
  624.       Top = 0
  625.       Caption = 'M'
  626.       ImageIndex = 13
  627.       OnClick = ToolButton15Click
  628.     end
  629.     object ToolButton16: TToolButton
  630.       Left = 260
  631.       Top = 0
  632.       Caption = 'N'
  633.       ImageIndex = 14
  634.       OnClick = ToolButton16Click
  635.     end
  636.     object ToolButton17: TToolButton
  637.       Left = 280
  638.       Top = 0
  639.       Caption = 'O'
  640.       ImageIndex = 15
  641.       OnClick = ToolButton17Click
  642.     end
  643.     object ToolButton18: TToolButton
  644.       Left = 300
  645.       Top = 0
  646.       Caption = 'P'
  647.       ImageIndex = 16
  648.       OnClick = ToolButton18Click
  649.     end
  650.     object ToolButton19: TToolButton
  651.       Left = 320
  652.       Top = 0
  653.       Caption = 'Q'
  654.       ImageIndex = 17
  655.       OnClick = ToolButton19Click
  656.     end
  657.     object ToolButton20: TToolButton
  658.       Left = 340
  659.       Top = 0
  660.       Caption = 'R'
  661.       ImageIndex = 18
  662.       OnClick = ToolButton20Click
  663.     end
  664.     object ToolButton21: TToolButton
  665.       Left = 360
  666.       Top = 0
  667.       Caption = 'S'
  668.       ImageIndex = 19
  669.       OnClick = ToolButton21Click
  670.     end
  671.     object ToolButton2: TToolButton
  672.       Left = 380
  673.       Top = 0
  674.       Caption = 'T'
  675.       ImageIndex = 29
  676.       OnClick = ToolButton2Click
  677.     end
  678.     object ToolButton22: TToolButton
  679.       Left = 400
  680.       Top = 0
  681.       Caption = 'U'
  682.       ImageIndex = 20
  683.       OnClick = ToolButton22Click
  684.     end
  685.     object ToolButton23: TToolButton
  686.       Left = 420
  687.       Top = 0
  688.       Caption = 'V'
  689.       ImageIndex = 21
  690.       OnClick = ToolButton23Click
  691.     end
  692.     object ToolButton24: TToolButton
  693.       Left = 440
  694.       Top = 0
  695.       Caption = 'W'
  696.       ImageIndex = 22
  697.       OnClick = ToolButton24Click
  698.     end
  699.     object ToolButton25: TToolButton
  700.       Left = 460
  701.       Top = 0
  702.       Caption = 'X'
  703.       ImageIndex = 23
  704.       OnClick = ToolButton25Click
  705.     end
  706.     object ToolButton26: TToolButton
  707.       Left = 480
  708.       Top = 0
  709.       Caption = 'Y'
  710.       ImageIndex = 24
  711.       OnClick = ToolButton26Click
  712.     end
  713.     object ToolButton27: TToolButton
  714.       Left = 500
  715.       Top = 0
  716.       Caption = 'Z'
  717.       ImageIndex = 25
  718.       OnClick = ToolButton27Click
  719.     end
  720.   end
  721.   object MemoEd: TDBMemo
  722.     Left = 384
  723.     Top = 270
  724.     Width = 241
  725.     Height = 105
  726.     DataField = 'Kommentar'
  727.     DataSource = DM.AdressSource
  728.     Font.Charset = ANSI_CHARSET
  729.     Font.Color = clNavy
  730.     Font.Height = -13
  731.     Font.Name = 'Arial'
  732.     Font.Style = []
  733.     MaxLength = 240
  734.     ParentFont = False
  735.     PopupMenu = FilmPopup
  736.     ReadOnly = True
  737.     TabOrder = 9
  738.   end
  739.   object SeekBox: TGroupBox
  740.     Left = 384
  741.     Top = 51
  742.     Width = 241
  743.     Height = 187
  744.     Caption = 'Find'
  745.     Font.Charset = ANSI_CHARSET
  746.     Font.Color = clWindowText
  747.     Font.Height = -13
  748.     Font.Name = 'Arial'
  749.     Font.Style = []
  750.     ParentFont = False
  751.     PopupMenu = FilmPopup
  752.     TabOrder = 15
  753.     object FoundLabel: TProLabel
  754.       Left = 106
  755.       Top = 40
  756.       Width = 10
  757.       Height = 22
  758.       Caption = '0'
  759.       Font.Charset = ANSI_CHARSET
  760.       Font.Color = clBlack
  761.       Font.Height = -19
  762.       Font.Name = 'Times New Roman'
  763.       Font.Style = [fsBold]
  764.       ParentFont = False
  765.       ShadowStyle = ssCustom
  766.       ShadowDirection = drDownRight
  767.       ShadowDepth = 1
  768.       ShadowSize = 3
  769.       Transparent = True
  770.       Visible = False
  771.     end
  772.     object EfterNamnTag: TRadioButton
  773.       Left = 6
  774.       Top = 23
  775.       Width = 89
  776.       Height = 17
  777.       Caption = 'First name'
  778.       Font.Charset = ANSI_CHARSET
  779.       Font.Color = clWindowText
  780.       Font.Height = -13
  781.       Font.Name = 'Arial'
  782.       Font.Style = []
  783.       ParentFont = False
  784.       TabOrder = 1
  785.       OnClick = EfterNamnTagClick
  786.     end
  787.     object ForNamnTag: TRadioButton
  788.       Left = 6
  789.       Top = 46
  790.       Width = 88
  791.       Height = 17
  792.       Caption = 'Last name'
  793.       Font.Charset = ANSI_CHARSET
  794.       Font.Color = clWindowText
  795.       Font.Height = -13
  796.       Font.Name = 'Arial'
  797.       Font.Style = []
  798.       ParentFont = False
  799.       TabOrder = 0
  800.       OnClick = ForNamnTagClick
  801.     end
  802.     object TeleTag: TRadioButton
  803.       Left = 8
  804.       Top = 109
  805.       Width = 153
  806.       Height = 17
  807.       Caption = 'Phone home'
  808.       TabOrder = 2
  809.       OnClick = TeleTagClick
  810.     end
  811.     object Filter: TDBFinderEdit
  812.       Left = 10
  813.       Top = 76
  814.       Width = 217
  815.       Height = 24
  816.       DataSource = DM.AdressSource
  817.       DataField = 'Efternamn'
  818.       OnFound = FilterFound
  819.       OnNotFound = FilterNotFound
  820.       Font.Charset = ANSI_CHARSET
  821.       Font.Color = clWindowText
  822.       Font.Height = -13
  823.       Font.Name = 'Arial'
  824.       Font.Style = []
  825.       ParentFont = False
  826.       TabOrder = 3
  827.       Text = 'Lundberg'
  828.       OnChange = FilterChange
  829.     end
  830.     object MobilTag: TRadioButton
  831.       Left = 8
  832.       Top = 132
  833.       Width = 113
  834.       Height = 17
  835.       Caption = 'Celluar'
  836.       TabOrder = 4
  837.       OnClick = MobilTagClick
  838.     end
  839.     object AdressTag: TRadioButton
  840.       Left = 8
  841.       Top = 155
  842.       Width = 113
  843.       Height = 17
  844.       Caption = 'Address'
  845.       TabOrder = 5
  846.       OnClick = AdressTagClick
  847.     end
  848.   end
  849.   object OkKnp: TBitBtn
  850.     Left = 77
  851.     Top = 388
  852.     Width = 88
  853.     Height = 29
  854.     Caption = '&OK'
  855.     Enabled = False
  856.     Font.Charset = ANSI_CHARSET
  857.     Font.Color = clBlack
  858.     Font.Height = -13
  859.     Font.Name = 'Arial'
  860.     Font.Style = []
  861.     ModalResult = 1
  862.     ParentFont = False
  863.     TabOrder = 11
  864.     OnClick = OkKnpClick
  865.     Glyph.Data = {
  866.       DE010000424DDE01000000000000760000002800000024000000120000000100
  867.       0400000000006801000000000000000000001000000000000000000000000000
  868.       80000080000000808000800000008000800080800000C0C0C000808080000000
  869.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  870.       3333333333333333333333330000333333333333333333333333F33333333333
  871.       00003333344333333333333333388F3333333333000033334224333333333333
  872.       338338F3333333330000333422224333333333333833338F3333333300003342
  873.       222224333333333383333338F3333333000034222A22224333333338F338F333
  874.       8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
  875.       33333338F83338F338F33333000033A33333A222433333338333338F338F3333
  876.       0000333333333A222433333333333338F338F33300003333333333A222433333
  877.       333333338F338F33000033333333333A222433333333333338F338F300003333
  878.       33333333A222433333333333338F338F00003333333333333A22433333333333
  879.       3338F38F000033333333333333A223333333333333338F830000333333333333
  880.       333A333333333333333338330000333333333333333333333333333333333333
  881.       0000}
  882.     NumGlyphs = 2
  883.   end
  884.   object CancelKnp: TBitBtn
  885.     Left = 181
  886.     Top = 388
  887.     Width = 88
  888.     Height = 29
  889.     Caption = '&Cancel'
  890.     Enabled = False
  891.     Font.Charset = ANSI_CHARSET
  892.     Font.Color = clBlack
  893.     Font.Height = -13
  894.     Font.Name = 'Arial'
  895.     Font.Style = []
  896.     ParentFont = False
  897.     TabOrder = 12
  898.     OnClick = CancelKnpClick
  899.     Kind = bkCancel
  900.   end
  901.   object TipsKnp: TBitBtn
  902.     Left = 285
  903.     Top = 388
  904.     Width = 88
  905.     Height = 29
  906.     Caption = '&Tip'
  907.     Font.Charset = ANSI_CHARSET
  908.     Font.Color = clBlack
  909.     Font.Height = -13
  910.     Font.Name = 'Arial'
  911.     Font.Style = []
  912.     ParentFont = False
  913.     TabOrder = 13
  914.     OnClick = TipsKnpClick
  915.     Kind = bkHelp
  916.   end
  917.   object MainMenu1: TMainMenu
  918.     Left = 544
  919.     object arkiv1: TMenuItem
  920.       Caption = '&File'
  921.       object Frhansdgranska1: TMenuItem
  922.         Bitmap.Data = {
  923.           F6000000424DF600000000000000760000002800000010000000100000000100
  924.           04000000000080000000120B0000120B00001000000010000000000000000000
  925.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  926.           FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
  927.           DADA000000000000AD000FFFFFFFFFF0D0000FFFFFFF0000700D0FFFFFF07887
  928.           07DA0FFFFF0788E770AD0FFFFF08888780DA0FFFFF08E88780AD0FFFFF07EE87
  929.           70DA0FFFFFF078870DAD0FFFFFFF0000DADA0FFFFFFFFFF0ADAD0FFFFFFF0000
  930.           DADA0FFFFFFF080DADAD0FFFFFFF00DADADA000000000DADADAD}
  931.         Caption = 'Print preview'
  932.         ShortCut = 16454
  933.         OnClick = LookKnpClick
  934.       end
  935.       object Skrivutregistret1: TMenuItem
  936.         Bitmap.Data = {
  937.           F6000000424DF600000000000000760000002800000010000000100000000100
  938.           04000000000080000000120B0000120B00001000000010000000000000000000
  939.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  940.           FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
  941.           DADAAD00000000000DADD0888888888080DA000000000000080D0888888BBB88
  942.           000A088888877788080D00000000000008800888888888808080D00000000008
  943.           0800AD0FFFFFFFF08080DAD0F00000F0000AADA0FFFFFFFF0DADDADA0F00000F
  944.           0ADAADAD0FFFFFFFF0ADDADAD000000000DAADADADADADADADAD}
  945.         Caption = 'Print'
  946.         ShortCut = 16464
  947.         OnClick = PrintKnpClick
  948.       end
  949.       object N1: TMenuItem
  950.         Caption = '-'
  951.       end
  952.       object Stng1: TMenuItem
  953.         Bitmap.Data = {
  954.           F6000000424DF600000000000000760000002800000010000000100000000100
  955.           04000000000080000000120B0000120B00001000000010000000000000000000
  956.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  957.           FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
  958.           DADAADADADADADADADADDADADADADADADADAADADAD0DADADADADDADAD00ADADA
  959.           DADAADAD0E0DADADADADDAD0EE00000000DAAD0EEEEEEEEEE0ADDA0EEEEEEEEE
  960.           E0DAADA0EE00000000ADDADA0E0ADADADADAADADA00DADADADADDADADA0ADADA
  961.           DADAADADADADADADADADDADADADADADADADAADADADADADADADAD}
  962.         Caption = 'Back to main'
  963.         ShortCut = 16467
  964.         OnClick = CloseKnpClick
  965.       end
  966.     end
  967.     object Instllningar1: TMenuItem
  968.       Caption = '&Options'
  969.       ShortCut = 16457
  970.       object Stngavmusik1: TMenuItem
  971.         Caption = 'Turn music off'
  972.       end
  973.     end
  974.     object Registerfunktioner1: TMenuItem
  975.       Caption = '&Database'
  976.       object Lggtillnypost1: TMenuItem
  977.         Bitmap.Data = {
  978.           F6000000424DF600000000000000760000002800000010000000100000000100
  979.           04000000000080000000120B0000120B00001000000010000000000000000000
  980.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  981.           FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
  982.           DADAADADADADADADADADDADADADADADADADAADADADADADADADADDADADA000ADA
  983.           DADAADADAD030DADADADDADADA030ADADADAADA000030000ADADDAD033333330
  984.           DADAADA000030000ADADDADADA030ADADADAADADAD030DADADADDADADA000ADA
  985.           DADAADADADADADADADADDADADADADADADADAADADADADADADADAD}
  986.         Caption = 'Add record'
  987.         ShortCut = 45
  988.         OnClick = AddRecordKnpClick
  989.       end
  990.       object Editerapost1: TMenuItem
  991.         Bitmap.Data = {
  992.           F6000000424DF600000000000000760000002800000010000000100000000100
  993.           04000000000080000000120B0000120B00001000000010000000000000000000
  994.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  995.           FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
  996.           DADA000000000000ADAD0FFFFFFFFFF0DADA0F00F00000F0ADAD0FFFFFFFFFF0
  997.           DADA0F00F00000F0ADAD0FFFFFFFFFF0DADA0FFFFFFF0FF0ADAD0FF0FFF080F0
  998.           DAD40F080F0808000D440FF08080808880440000080808888844DADAD0808888
  999.           8844ADADAD0888888044DADADAD000000A44ADADADADADADADAD}
  1000.         Caption = 'Edit record'
  1001.         ShortCut = 8237
  1002.         OnClick = EditKnpClick
  1003.       end
  1004.       object Tabortpost1: TMenuItem
  1005.         Bitmap.Data = {
  1006.           F6000000424DF600000000000000760000002800000010000000100000000100
  1007.           04000000000080000000120B0000120B00001000000010000000000000000000
  1008.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  1009.           FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
  1010.           DADAADADADADADADADADDADADADADADADADAADADADADADADADADDADADADADADA
  1011.           DADAADADADADADADADADDADADADADADADADAADA000000000ADADDAD033333330
  1012.           DADAADA000000000ADADDADADADADADADADAADADADADADADADADDADADADADADA
  1013.           DADAADADADADADADADADDADADADADADADADAADADADADADADADAD}
  1014.         Caption = 'Delete record'
  1015.         ShortCut = 8238
  1016.         OnClick = DelRecordKnpClick
  1017.       end
  1018.     end
  1019.     object Hjlp1: TMenuItem
  1020.       Caption = '&Help'
  1021.       object Hjlpindex1: TMenuItem
  1022.         Caption = 'Help'
  1023.         ShortCut = 16496
  1024.         OnClick = Hjlpindex1Click
  1025.       end
  1026.       object OmhobbyReg991: TMenuItem
  1027.         Caption = 'About'
  1028.         ShortCut = 16464
  1029.         OnClick = OmhobbyReg991Click
  1030.       end
  1031.     end
  1032.   end
  1033.   object FilmPopup: TPopupMenu
  1034.     Left = 504
  1035.     object ett: TMenuItem
  1036.       Caption = 'Add record'
  1037.       OnClick = AddRecordKnpClick
  1038.     end
  1039.     object tva: TMenuItem
  1040.       Caption = 'Edit record'
  1041.       OnClick = EditKnpClick
  1042.     end
  1043.     object tre: TMenuItem
  1044.       Caption = 'Delete Record'
  1045.       OnClick = DelRecordKnpClick
  1046.     end
  1047.     object Frhandsgranska1: TMenuItem
  1048.       Caption = 'Print preview'
  1049.       OnClick = LookKnpClick
  1050.     end
  1051.     object atta: TMenuItem
  1052.       Caption = 'Print'
  1053.       OnClick = PrintKnpClick
  1054.     end
  1055.     object nio: TMenuItem
  1056.       Bitmap.Data = {
  1057.         36040000424D3604000000000000360000002800000010000000100000000100
  1058.         2000000000000004000000000000000000001000000000000000000000000000
  1059.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  1060.         FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00C0C0C0C0C0C0
  1061.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1062.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1063.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1064.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1065.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1066.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1067.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000000000C0C0C0C000C0C0C0C0C0C0
  1068.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1069.         C000C0C0C0C0C0C0C000C0C0C00000000000000000C0C0C0C000C0C0C0C0C0C0
  1070.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1071.         C000C0C0C0C0C0C0C000000000FFFFFF0000000000C0C0C0C000C0C0C0C0C0C0
  1072.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1073.         C000C0C0C00000000000FFFF00FFFFFF00000000000000000000000000000000
  1074.         000000000000000000000000000000000000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1075.         C000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF
  1076.         0000FFFF00FFFFFF0000FFFF000000000000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1077.         C000000000FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF0000FFFF00FFFFFF
  1078.         0000FFFF00FFFFFF0000FFFF000000000000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1079.         C000C0C0C00000000000FFFF00FFFFFF00000000000000000000000000000000
  1080.         000000000000000000000000000000000000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1081.         C000C0C0C0C0C0C0C000000000FFFFFF0000000000C0C0C0C000C0C0C0C0C0C0
  1082.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1083.         C000C0C0C0C0C0C0C000C0C0C00000000000000000C0C0C0C000C0C0C0C0C0C0
  1084.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1085.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000000000C0C0C0C000C0C0C0C0C0C0
  1086.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1087.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1088.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1089.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0
  1090.         C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000C0C0C0C0C0C0C000070707070000
  1091.         000F080800080808080F08080800000007070707070707070707070707070707
  1092.         0700000000000000000000000007070707070707070707070707}
  1093.       Caption = 'Mainmenu'
  1094.       OnClick = CloseKnpClick
  1095.     end
  1096.   end
  1097.   object Dialog1: TProInfoDialog
  1098.     Font.Charset = ANSI_CHARSET
  1099.     Font.Color = clWindowText
  1100.     Font.Height = -19
  1101.     Font.Name = 'Arial'
  1102.     Font.Style = []
  1103.     Left = 450
  1104.     Top = 2
  1105.   end
  1106.   object Grad: TRxGradientCaption
  1107.     Captions = <>
  1108.     FormCaption = 'Addressbook'
  1109.     StartColor = clRed
  1110.     Left = 384
  1111.   end
  1112. end
  1113.